﻿Public Class FrmMenú

    Private Sub ExitToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()

    End Sub


    Private Sub InformaciónDelJuegoToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles InformaciónDelJuegoToolStripMenuItem.Click
        FormInfo.Show()
    End Sub

    Private Sub AbrirPartidaGuardadaToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AbrirPartidaGuardadaToolStripMenuItem.Click
       
    End Sub

    Private Sub GuardarPartidaToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles GuardarPartidaToolStripMenuItem.Click
        Dim aceptar As DialogResult = MessageBox.Show("Ha habido cambios en el Juego , ¿Desea Guardar los cambios?", "Atencion", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
        If aceptar = Windows.Forms.DialogResult.No Then
            Exit Sub
        End If
        If aceptar = Windows.Forms.DialogResult.Yes Then
            Dim NombreArchivo As String
            'Dim miimputbox As InputBox
        End If
        'Globales.test.grabar()
    End Sub

    
    Private Sub JugadorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JugadorToolStripMenuItem.Click
        frmCrearEjercito.Show()
    End Sub

End Class